home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / ircNgui1.mrc < prev    next >
Encoding:
Text File  |  2000-03-04  |  28.6 KB  |  990 lines
  1. ;%%%%%%%%%%%%%%%%%%%%%%%%
  2. ;script ircN Settings GUIs
  3. ;version 7.0
  4. ;author Quietust/draco
  5. ;email quietust@ircN.org
  6. ;url http://www.ircN.org
  7. ;%%%%%%%%%%%%%%%%%%%%%%%%
  8. on 1:DIALOG:ircN.loadsettings:*:* {
  9.   if ($devent == init) {
  10.     if (%tdaemon == on) did -c $dname 11
  11.     if (%telnetport != $null) did -a $dname 13 %telnetport
  12.     else did -a $dname 13 3333
  13.     if (%partyline == on) did -c $dname 14
  14.     if (%rcontrol == on) did -c $dname 16
  15.     if (%seenbot == on) did -c $dname 21
  16.     if (%seenchans != $null) did -a $dname 23 %seenchans
  17.     if (%ircii == on) did -c $dname 31
  18.     if (%xdccs == on) did -c $dname 32
  19.     if (%chandump == on) did -c $dname 33
  20.     if (%decrypt == on) did -c $dname 41
  21.     if (%encryptpw != $null) did -a $dname 43 %encryptpw
  22.     else did -a $dname 43 ircN
  23.     loadsettings.update
  24.     did -b $dname 3
  25.   }
  26.   elseif ($devent == sclick) {
  27.     if ((($did == 1) && ($did(2).next == 3)) || ($did == 3)) {
  28.       did -b $dname 3
  29.       if (($did(13) != %telnetport) && (($did(11).state) || (%tdaemon == on))) {
  30.         if ($portfree($did(13))) {
  31.           set %telnetport $did(13)
  32.           tdaemon on
  33.         }
  34.         else {
  35.           iecho WARNING! Unable to open $hc(Telnet daemon) on port $hc(%telnetport) $+ !
  36.           halt
  37.         }
  38.       }
  39.       else {
  40.         if ($did(13)) set %telnetport $did(13)
  41.         else set %telnetport 3333
  42.         if (($did(11).state) && (%tdaemon == off)) tdaemon on
  43.         elseif (($did(11).state == 0) && (%tdaemon == on)) tdaemon off
  44.       }
  45.       if (($did(14).state) && (%partyline == off)) partyline on
  46.       elseif (($did(14).state == 0) && (%partyline == on)) partyline off
  47.       if (($did(16).state) && (%rcontrol == off)) rcontrol on
  48.       elseif (($did(16).state == 0) && (%rcontrol == on)) rcontrol off
  49.       if (($did(21).state) && (%seenbot == off)) seen on
  50.       elseif (($did(21).state == 0) && (%seenbot == on)) seen off
  51.       if ($did(23)) set %seenchans $did(23)
  52.       else set %seenchans none
  53.       if (($did(31).state) && (%ircii == off)) ircii on
  54.       elseif (($did(31).state == 0) && (%ircii == on)) ircii off
  55.       if (($did(32).state) && (%xdccs == off)) xdcc on
  56.       elseif (($did(32).state == 0) && (%xdccs == on)) xdcc off
  57.       if (($did(33).state) && (%chandump == off)) .timer 1 0 chandump on
  58.       elseif (($did(33).state == 0) && (%chandump == on)) chandump off
  59.       if ($did(41).state) set %decrypt on
  60.       else set %decrypt off
  61.       if ($did(43)) set %encryptpw $did(43)
  62.       else set %encryptpw ircN
  63.     }
  64.     elseif ($did == 15) run notepad $td(cmotd.txt)
  65.     else loadsettings.update
  66.   }
  67.   elseif ($devent == edit) did -e $dname 3
  68. }
  69. alias -l loadsettings.update {
  70.   if ($did(11).state) {
  71.     did -e $dname 10
  72.     did -e $dname 12
  73.     did -e $dname 13
  74.     did -e $dname 14
  75.     if ($did(14).state) did -e $dname 15
  76.     else did -b $dname 15
  77.     did -e $dname 16
  78.   }
  79.   else {
  80.     did -b $dname 10
  81.     did -b $dname 12
  82.     did -b $dname 13
  83.     did -bu $dname 14
  84.     did -b $dname 15
  85.     did -bu $dname 16
  86.   }
  87.   if ($did(21).state) {
  88.     did -e $dname 20
  89.     did -e $dname 22
  90.     did -e $dname 23
  91.   }
  92.   else {
  93.     did -b $dname 20
  94.     did -b $dname 22
  95.     did -b $dname 23
  96.   }
  97.   if ($did(41).state) {
  98.     did -e $dname 40
  99.     did -e $dname 42
  100.     did -e $dname 43
  101.   }
  102.   else {
  103.     did -b $dname 40
  104.     did -b $dname 42
  105.     did -b $dname 43
  106.   }
  107.   did -e $dname 3
  108. }
  109. on 1:DIALOG:ircN.fldprot:*:* {
  110.   if ($devent == init) {
  111.     if (%chanprot == on) did -c $dname 3
  112.     if (%txtfld == on) did -c $dname 21
  113.     if (%tfchans) did -ra $dname 23 %tfchans
  114.     else did -ra $dname 23 none
  115.     if (%maxlines) did -ra $dname 25 %maxlines
  116.     else did -ra $dname 25 10
  117.     if (%lps) did -ra $dname 27 $div(%lps,1000)
  118.     else did -ra $dname 27 60
  119.     if (%kckmsg.txt) did -ra $dname 29 %kckmsg.txt
  120.     if (%txban == on) did -c $dname 30
  121.     if (%ktops == on) did -c $dname 31
  122.     if (%tck == on) did -c $dname 32
  123.     if (%joinfld == on) did -c $dname 41
  124.     if (%jfchans) did -ra $dname 43 %jfchans
  125.     else did -ra $dname 43 none
  126.     if (%maxjoins) did -ra $dname 45 %maxjoins
  127.     else did -ra $dname 45 3
  128.     if (%jps) did -ra $dname 47 $div(%jps,1000)
  129.     else did -ra $dname 47 60
  130.     if (%kckmsg.join) did -ra $dname 49 %kckmsg.join
  131.     if (%jban == on) did -c $dname 50
  132.     if (%jck == on) did -c $dname 51
  133.     if (%nickfld == on) did -c $dname 61
  134.     if (%nfchans) did -ra $dname 63 %nfchans
  135.     else did -ra $dname 63 none
  136.     if (%maxnicks) did -ra $dname 65 %maxnicks
  137.     else did -ra $dname 65 3
  138.     if (%nps) did -ra $dname 67 $div(%nps,1000)
  139.     else did -ra $dname 67 60
  140.     if (%kckmsg.nick) did -ra $dname 69 %kckmsg.nick
  141.     if (%nban == on) did -c $dname 70
  142.     if (%knpops == on) did -c $dname 71
  143.     if (%nck == on) did -c $dname 72
  144.     if (%kickfld == on) did -c $dname 81
  145.     if (%kfchans) did -ra $dname 83 %kfchans
  146.     else did -ra $dname 83 none
  147.     if (%maxkicks) did -ra $dname 85 %maxkicks
  148.     else did -ra $dname 85 5
  149.     if (%kps) did -ra $dname 87 $div(%kps,1000)
  150.     else did -ra $dname 87 60
  151.     if (%kckmsg.nick) did -ra $dname 89 %kckmsg.kick
  152.     if (%kban == on) did -c $dname 90
  153.     if (%kck == on) did -c $dname 91
  154.     if (%mdopfld == on) did -c $dname 101
  155.     if (%dfchans) did -ra $dname 103 %dfchans
  156.     else did -ra $dname 103 none
  157.     if (%maxdeops) did -ra $dname 105 %maxdeops
  158.     else did -ra $dname 105 3
  159.     if (%dps) did -ra $dname 107 $div(%dps,1000)
  160.     else did -ra $dname 107 60
  161.     if (%kckmsg.deop) did -ra $dname 109 %kckmsg.deop
  162.     if (%dban == on) did -c $dname 110
  163.     if (%dck == on) did -c $dname 111
  164.     if (%capsfld == on) did -c $dname 121
  165.     if (%cpchans) did -ra $dname 123 %cpchans
  166.     else did -ra $dname 123 none
  167.     if (%maxclines) did -ra $dname 125 %maxclines
  168.     else did -ra $dname 125 3
  169.     if (%cps) did -ra $dname 127 $div(%cps,1000)
  170.     else did -ra $dname 127 60
  171.     if (%maxcaps) did -ra $dname 129 %maxcaps
  172.     else did -ra $dname 129 40
  173.     if (%kckmsg.caps) did -ra $dname 131 %kckmsg.caps
  174.     if (%cban == on) did -c $dname 132
  175.     if (%ckops == on) did -c $dname 133
  176.     if (%cck == on) did -c $dname 134
  177.     if (%asciifld == on) did -c $dname 141
  178.     if (%aschans) did -ra $dname 143 %aschans
  179.     else did -ra $dname 143 none
  180.     if (%maxalines) did -ra $dname 145 %maxalines
  181.     else did -ra $dname 145 3
  182.     if (%aps) did -ra $dname 147 $div(%aps,1000)
  183.     else did -ra $dname 147 60
  184.     if (%maxascii) did -ra $dname 149 %maxascii
  185.     else did -ra $dname 149 60
  186.     if (%kckmsg.caps) did -ra $dname 151 %kckmsg.asc
  187.     if (%aban == on) did -c $dname 152
  188.     if (%akops == on) did -c $dname 153
  189.     if (%ack == on) did -c $dname 154
  190.     if (%rptfld == on) did -c $dname 161
  191.     if (%rpchans) did -ra $dname 163 %rpchans
  192.     else did -ra $dname 163 none
  193.     if (%maxrpt) did -ra $dname 165 %maxrpt
  194.     else did -ra $dname 165 4
  195.     if (%rps) did -ra $dname 167 $div(%rps,1000)
  196.     else did -ra $dname 167 60
  197.     if (%minrpt) did -ra $dname 169 %minrpt
  198.     else did -ra $dname 169 10
  199.     if (%kckmsg.rpt) did -ra $dname 171 %kckmsg.rpt
  200.     if (%rban == on) did -c $dname 172
  201.     if (%krops == on) did -c $dname 173
  202.     if (%rck == on) did -c $dname 174
  203.     if (%serverprot == on) did -c $dname 181
  204.     if (%svchans) did -ra $dname 183 %svchans
  205.     else did -ra $dname 183 none
  206.     fldprot.update
  207.     did -b $dname 4
  208.     fldprot.hide 40 51
  209.     fldprot.hide 60 72
  210.     fldprot.hide 80 91
  211.     fldprot.hide 100 111
  212.     fldprot.hide 120 134
  213.     fldprot.hide 140 154
  214.     fldprot.hide 160 174
  215.     fldprot.hide 180 183
  216.     did -a $dname 5 Text Flood
  217.     did -a $dname 5 Join Flood
  218.     did -a $dname 5 Nick Flood
  219.     did -a $dname 5 Mass Kick
  220.     did -a $dname 5 Mass Deop
  221.     did -a $dname 5 Caps Flood
  222.     did -a $dname 5 Ascii Flood
  223.     did -a $dname 5 Repeat Flood
  224.     did -a $dname 5 Server Op
  225.     did -c $dname 5 1
  226.   }
  227.   elseif ($devent == sclick) {
  228.     if ($did == 5) {
  229.       fldprot.hide 20 32
  230.       fldprot.hide 40 51
  231.       fldprot.hide 60 72
  232.       fldprot.hide 80 91
  233.       fldprot.hide 100 111
  234.       fldprot.hide 120 134
  235.       fldprot.hide 140 154
  236.       fldprot.hide 160 174
  237.       fldprot.hide 180 183
  238.       if ($did(5).sel == 1) fldprot.show 20 32
  239.       elseif ($did(5).sel == 2) fldprot.show 40 51
  240.       elseif ($did(5).sel == 3) fldprot.show 60 72
  241.       elseif ($did(5).sel == 4) fldprot.show 80 91
  242.       elseif ($did(5).sel == 5) fldprot.show 100 111
  243.       elseif ($did(5).sel == 6) fldprot.show 120 134
  244.       elseif ($did(5).sel == 7) fldprot.show 140 154
  245.       elseif ($did(5).sel == 8) fldprot.show 160 174
  246.       elseif ($did(5).sel == 9) fldprot.show 180 183
  247.     }
  248.     elseif ((($did == 1) && ($did(2).next == 4)) || ($did == 4)) {
  249.       did -b $dname 4
  250.       if (($did(3).state) && (%chanprot == off)) cprot on
  251.       elseif (($did(3).state == 0) && (%chanprot == on)) cprot off
  252.       if ($did(21).state) set %txtfld on
  253.       else set %txtfld off
  254.       set %tfchans $did(23)
  255.       set %maxlines $did(25)
  256.       set %lps $mpy($did(27),1000)
  257.       if ($did(29)) set %kckmsg.txt $did(29)
  258.       else unset %kckmsg.txt
  259.       if ($did(30).state) set %txban on
  260.       else set %txban off
  261.       if ($did(31).state) set %ktops on
  262.       else set %ktops off
  263.       if ($did(32).state) set %tck on
  264.       else set %tck off
  265.       if ($did(41).state) set %joinfld on
  266.       else set %joinfld off
  267.       set %jfchans $did(43)
  268.       set %maxjoins $did(45)
  269.       set %jps $mpy($did(47),1000)
  270.       if ($did(49)) set %kckmsg.join $did(49)
  271.       else unset %kckmsg.join
  272.       if ($did(50).state) set %jban on
  273.       else set %jban off
  274.       if ($did(51).state) set %jck on
  275.       else set %jck off
  276.       if ($did(61).state) set %nickfld on
  277.       else set %nickfld off
  278.       set %nfchans $did(63)
  279.       set %maxnicks $did(65)
  280.       set %nps $mpy($did(67),1000)
  281.       if ($did(69)) set %kckmsg.nick $did(69)
  282.       else unset %kckmsg.nick
  283.       if ($did(70).state) set %nban on
  284.       else set %nban off
  285.       if ($did(71).state) set %knpops on
  286.       else set %knpops off
  287.       if ($did(72).state) set %nck on
  288.       else set %nck off
  289.       if ($did(81).state) set %kickfld on
  290.       else set %kickfld off
  291.       set %kfchans $did(83)
  292.       set %maxkicks $did(85)
  293.       set %kps $mpy($did(87),1000)
  294.       if ($did(89)) set %kckmsg.kick $did(89)
  295.       else unset %kckmsg.nick
  296.       if ($did(90).state) set %kban on
  297.       else set %kban off
  298.       if ($did(91).state) set %kck on
  299.       else set %kck off
  300.       if ($did(101).state) set %mdopfld on
  301.       else set %mdopfld off
  302.       set %dfchans $did(103)
  303.       set %maxdeops $did(105)
  304.       set %dps $mpy($did(107),1000)
  305.       if ($did(109)) set %kckmsg.deop $did(109)
  306.       else unset %kckmsg.deop
  307.       if ($did(110).state) set %dban on
  308.       else set %dban off
  309.       if ($did(111).state) set %dck on
  310.       else set %dck off
  311.       if ($did(121).state) set %capsfld on
  312.       else set %capsfld off
  313.       set %cpchans $did(123)
  314.       set %maxclines $did(125)
  315.       set %cps $mpy($did(127),1000)
  316.       set %maxcaps $did(129)
  317.       if ($did(131)) set %kckmsg.caps $did(131)
  318.       else unset %kckmsg.caps
  319.       if ($did(132).state) set %cban on
  320.       else set %cban off
  321.       if ($did(133).state) set %ckops on
  322.       else set %ckops off
  323.       if ($did(134).state) set %cck on
  324.       else set %cck off
  325.       if ($did(141).state) set %asciifld on
  326.       else set %asciifld off
  327.       set %aschans $did(143)
  328.       set %maxalines $did(145)
  329.       set %aps $mpy($did(147),1000)
  330.       set %maxascii $did(149)
  331.       if ($did(151)) set %kckmsg.asc $did(151)
  332.       else unset %kckmsg.asc
  333.       if ($did(152).state) set %aban on
  334.       else set %aban off
  335.       if ($did(153).state) set %akops on
  336.       else set %akops off
  337.       if ($did(154).state) set %ack on
  338.       else set %ack off
  339.       if ($did(161).state) set %rptfld on
  340.       else set %rptfld off
  341.       set %rpchans $did(163)
  342.       set %maxrpt $did(165)
  343.       set %rps $mpy($did(167),1000)
  344.       set %minrpt $did(169)
  345.       if ($did(171)) set %kckmsg.rpt $did(171)
  346.       else unset %kckmsg.rpt
  347.       if ($did(172).state) set %rban on
  348.       else set %rban off
  349.       if ($did(173).state) set %krops on
  350.       else set %krops off
  351.       if ($did(174).state) set %rck on
  352.       else set %rck off
  353.       if ($did(181).state) set %serverprot on
  354.       else set %serverprot off
  355.       set %svchans $did(183)
  356.     }
  357.     else fldprot.update
  358.   }
  359.   elseif ($devent == edit) did -e $dname 4
  360. }
  361. alias -l fldprot.update {
  362.   if ($did(3).state) {
  363.     did -e $dname 21
  364.     did -e $dname 41
  365.     did -e $dname 61
  366.     did -e $dname 81
  367.     did -e $dname 101
  368.     did -e $dname 121
  369.     did -e $dname 141
  370.     did -e $dname 161
  371.     did -e $dname 181
  372.   }
  373.   else {
  374.     did -ub $dname 21
  375.     did -ub $dname 41
  376.     did -ub $dname 61
  377.     did -ub $dname 81
  378.     did -ub $dname 101
  379.     did -ub $dname 121
  380.     did -ub $dname 141
  381.     did -ub $dname 161
  382.     did -ub $dname 181
  383.   }
  384.   if ($did(21).state) {
  385.     did -e $dname 20
  386.     did -e $dname 22
  387.     did -e $dname 23
  388.     did -e $dname 24
  389.     did -e $dname 25
  390.     did -e $dname 26
  391.     did -e $dname 27
  392.     did -e $dname 28
  393.     did -e $dname 29
  394.     did -e $dname 30
  395.     did -e $dname 31
  396.     did -e $dname 32
  397.   }
  398.   else {
  399.     did -b $dname 20
  400.     did -b $dname 22
  401.     did -b $dname 23
  402.     did -b $dname 24
  403.     did -b $dname 25
  404.     did -b $dname 26
  405.     did -b $dname 27
  406.     did -b $dname 28
  407.     did -b $dname 29
  408.     did -b $dname 30
  409.     did -b $dname 31
  410.     did -b $dname 32
  411.   }
  412.   if ($did(41).state) {
  413.     did -e $dname 40
  414.     did -e $dname 42
  415.     did -e $dname 43
  416.     did -e $dname 44
  417.     did -e $dname 45
  418.     did -e $dname 46
  419.     did -e $dname 47
  420.     did -e $dname 48
  421.     did -e $dname 49
  422.     did -e $dname 50
  423.     did -e $dname 51
  424.   }
  425.   else {
  426.     did -b $dname 40
  427.     did -b $dname 42
  428.     did -b $dname 43
  429.     did -b $dname 44
  430.     did -b $dname 45
  431.     did -b $dname 46
  432.     did -b $dname 47
  433.     did -b $dname 48
  434.     did -b $dname 49
  435.     did -b $dname 50
  436.     did -b $dname 51
  437.   }
  438.   if ($did(61).state) {
  439.     did -e $dname 60
  440.     did -e $dname 62
  441.     did -e $dname 63
  442.     did -e $dname 64
  443.     did -e $dname 65
  444.     did -e $dname 66
  445.     did -e $dname 67
  446.     did -e $dname 68
  447.     did -e $dname 69
  448.     did -e $dname 70
  449.     did -e $dname 71
  450.     did -e $dname 72
  451.   }
  452.   else {
  453.     did -b $dname 60
  454.     did -b $dname 62
  455.     did -b $dname 63
  456.     did -b $dname 64
  457.     did -b $dname 65
  458.     did -b $dname 66
  459.     did -b $dname 67
  460.     did -b $dname 68
  461.     did -b $dname 69
  462.     did -b $dname 70
  463.     did -b $dname 71
  464.     did -b $dname 72
  465.   }
  466.   if ($did(81).state) {
  467.     did -e $dname 80
  468.     did -e $dname 82
  469.     did -e $dname 83
  470.     did -e $dname 84
  471.     did -e $dname 85
  472.     did -e $dname 86
  473.     did -e $dname 87
  474.     did -e $dname 88
  475.     did -e $dname 89
  476.     did -e $dname 90
  477.     did -e $dname 91
  478.   }
  479.   else {
  480.     did -b $dname 80
  481.     did -b $dname 82
  482.     did -b $dname 83
  483.     did -b $dname 84
  484.     did -b $dname 85
  485.     did -b $dname 86
  486.     did -b $dname 87
  487.     did -b $dname 88
  488.     did -b $dname 89
  489.     did -b $dname 90
  490.     did -b $dname 91
  491.   }
  492.   if ($did(101).state) {
  493.     did -e $dname 100
  494.     did -e $dname 102
  495.     did -e $dname 103
  496.     did -e $dname 104
  497.     did -e $dname 105
  498.     did -e $dname 106
  499.     did -e $dname 107
  500.     did -e $dname 108
  501.     did -e $dname 109
  502.     did -e $dname 110
  503.     did -e $dname 111
  504.   }
  505.   else {
  506.     did -b $dname 100
  507.     did -b $dname 102
  508.     did -b $dname 103
  509.     did -b $dname 104
  510.     did -b $dname 105
  511.     did -b $dname 106
  512.     did -b $dname 107
  513.     did -b $dname 108
  514.     did -b $dname 109
  515.     did -b $dname 110
  516.     did -b $dname 111
  517.   }
  518.   if ($did(121).state) {
  519.     did -e $dname 120
  520.     did -e $dname 122
  521.     did -e $dname 123
  522.     did -e $dname 124
  523.     did -e $dname 125
  524.     did -e $dname 126
  525.     did -e $dname 127
  526.     did -e $dname 128
  527.     did -e $dname 129
  528.     did -e $dname 130
  529.     did -e $dname 131
  530.     did -e $dname 132
  531.     did -e $dname 133
  532.     did -e $dname 134
  533.   }
  534.   else {
  535.     did -b $dname 120
  536.     did -b $dname 122
  537.     did -b $dname 123
  538.     did -b $dname 124
  539.     did -b $dname 125
  540.     did -b $dname 126
  541.     did -b $dname 127
  542.     did -b $dname 128
  543.     did -b $dname 129
  544.     did -b $dname 130
  545.     did -b $dname 131
  546.     did -b $dname 132
  547.     did -b $dname 133
  548.     did -b $dname 134
  549.   }
  550.   if ($did(141).state) {
  551.     did -e $dname 140
  552.     did -e $dname 142
  553.     did -e $dname 143
  554.     did -e $dname 144
  555.     did -e $dname 145
  556.     did -e $dname 146
  557.     did -e $dname 147
  558.     did -e $dname 148
  559.     did -e $dname 149
  560.     did -e $dname 150
  561.     did -e $dname 151
  562.     did -e $dname 152
  563.     did -e $dname 153
  564.     did -e $dname 154
  565.   }
  566.   else {
  567.     did -b $dname 140
  568.     did -b $dname 142
  569.     did -b $dname 143
  570.     did -b $dname 144
  571.     did -b $dname 145
  572.     did -b $dname 146
  573.     did -b $dname 147
  574.     did -b $dname 148
  575.     did -b $dname 149
  576.     did -b $dname 150
  577.     did -b $dname 151
  578.     did -b $dname 152
  579.     did -b $dname 153
  580.     did -b $dname 154
  581.   }
  582.   if ($did(161).state) {
  583.     did -e $dname 160
  584.     did -e $dname 162
  585.     did -e $dname 163
  586.     did -e $dname 164
  587.     did -e $dname 165
  588.     did -e $dname 166
  589.     did -e $dname 167
  590.     did -e $dname 168
  591.     did -e $dname 169
  592.     did -e $dname 170
  593.     did -e $dname 171
  594.     did -e $dname 172
  595.     did -e $dname 173
  596.     did -e $dname 174
  597.   }
  598.   else {
  599.     did -b $dname 160
  600.     did -b $dname 162
  601.     did -b $dname 163
  602.     did -b $dname 164
  603.     did -b $dname 165
  604.     did -b $dname 166
  605.     did -b $dname 167
  606.     did -b $dname 168
  607.     did -b $dname 169
  608.     did -b $dname 170
  609.     did -b $dname 171
  610.     did -b $dname 172
  611.     did -b $dname 173
  612.     did -b $dname 174
  613.   }
  614.   if ($did(181).state) {
  615.     did -e $dname 180
  616.     did -e $dname 182
  617.     did -e $dname 183
  618.   }
  619.   else {
  620.     did -b $dname 180
  621.     did -b $dname 182
  622.     did -b $dname 183
  623.   }
  624.   did -e $dname 4
  625. }
  626. alias -l fldprot.show {
  627.   set %i.fldprot.show $sub($1,1)
  628.   :start
  629.   inc %i.fldprot.show
  630.   if (%i.fldprot.show <= $2) {
  631.     did -v $dname %i.fldprot.show
  632.     goto start
  633.   }
  634. }
  635. alias -l fldprot.hide {
  636.   set %i.fldprot.hide $sub($1,1)
  637.   :start
  638.   inc %i.fldprot.hide
  639.   if (%i.fldprot.hide <= $2) {
  640.     did -h $dname %i.fldprot.hide
  641.     goto start
  642.   }
  643. }
  644. on 1:DIALOG:ircN.btnetfld:*:* {
  645.   if ($devent == init) {
  646.     if (%bt.flood == on) did -c $dname 3
  647.     if (%bt.join == on) did -c $dname 11
  648.     if (%bt.jchan) did -ra $dname 13 %bt.jchan
  649.     else did -ra $dname 13 none
  650.     if (%bt.maxjoins) did -ra $dname 15 %bt.maxjoins
  651.     else did -ra $dname 15 15
  652.     if (%bt.jtime) did -ra $dname 17 $div(%bt.jtime,1000)
  653.     else did -ra $dname 17 60
  654.     if (%bt.jkick) did -ra $dname 19 %bt.jkick
  655.     else did -ra $dname 19 Botnet JOIN flood
  656.     if (%bt.jmod == on) did -c $dname 20
  657.     if (%bt.jknop == on) did -c $dname 21
  658.     if (%bt.msg == on) did -c $dname 31
  659.     if (%bt.mchan) did -ra $dname 33 %bt.mchan
  660.     else did -ra $dname 33 none
  661.     if (%bt.maxmsgs) did -ra $dname 35 %bt.maxmsgs
  662.     else did -ra $dname 35 30
  663.     if (%bt.mtime) did -ra $dname 37 $div(%bt.mtime,1000)
  664.     else did -ra $dname 37 60
  665.     if (%bt.mkick) did -ra $dname 39 %bt.mkick
  666.     else did -ra $dname 39 Botnet MESSAGE flood
  667.     if (%bt.mmod == on) did -c $dname 40
  668.     if (%bt.mknop == on) did -c $dname 41
  669.     if (%bt.nick == on) did -c $dname 51
  670.     if (%bt.nchan) did -ra $dname 53 %bt.nchan
  671.     else did -ra $dname 53 none
  672.     if (%bt.maxnicks) did -ra $dname 55 %bt.maxnicks
  673.     else did -ra $dname 55 10
  674.     if (%bt.ntime) did -ra $dname 57 $div(%bt.ntime,1000)
  675.     else did -ra $dname 57 60
  676.     if (%bt.nkick) did -ra $dname 59 %bt.nkick
  677.     else did -ra $dname 59 Botnet NICK flood
  678.     if (%bt.nmod == on) did -c $dname 60
  679.     if (%bt.nknop == on) did -c $dname 61
  680.     if (%bt.ctcp == on) did -c $dname 71
  681.     if (%bt.cchan) did -ra $dname 73 %bt.cchan
  682.     else did -ra $dname 73 none
  683.     if (%bt.maxctcps) did -ra $dname 75 %bt.maxctcps
  684.     else did -ra $dname 75 10
  685.     if (%bt.ctime) did -ra $dname 77 $div(%bt.ctime,1000)
  686.     else did -ra $dname 77 60
  687.     if (%bt.ckick) did -ra $dname 79 %bt.ckick
  688.     else did -ra $dname 79 Botnet CTCP flood
  689.     if (%bt.cmod == on) did -c $dname 80
  690.     if (%bt.cknop == on) did -c $dname 81
  691.     btnetfld.update
  692.     did -b $dname 4
  693.   }
  694.   elseif ($devent == edit) did -e $dname 4
  695.   elseif ($devent == sclick) {
  696.     if ((($did == 1) && ($did(2).next == 4)) || ($did == 4)) {
  697.       did -b $dname 4
  698.       if (($did(3).state) && (%bt.flood == off)) botflood on
  699.       elseif (($did(3).state == 0) && (%bt.flood == on)) botflood off
  700.       if ($did(11).state) set %bt.join on
  701.       else set %bt.join off
  702.       set %bt.jchan $did(13)
  703.       set %bt.maxjoins $did(15)
  704.       set %bt.jtime $mpy($did(17),1000)
  705.       set %bt.jkick $did(19)
  706.       if ($did(20).state) set %bt.jmod on
  707.       else set %bt.jmod off
  708.       if ($did(21).state) set %bt.jknop on
  709.       else set %bt.jknop off
  710.       if ($did(31).state) set %bt.msg on
  711.       else set %bt.msg off
  712.       set %bt.mchan $did(33)
  713.       set %bt.maxmsgs $did(35)
  714.       set %bt.mtime $mpy($did(37),1000)
  715.       set %bt.mkick $did(39)
  716.       if ($did(40).state) set %bt.mmod on
  717.       else set %bt.mmod off
  718.       if ($did(41).state) set %bt.mknop on
  719.       else set %bt.mknop off
  720.       if ($did(51).state) set %bt.nick on
  721.       else set %bt.nick off
  722.       set %bt.nchan $did(53)
  723.       set %bt.maxnicks $did(55)
  724.       set %bt.ntime $mpy($did(57),1000)
  725.       set %bt.nkick $did(59)
  726.       if ($did(60).state) set %bt.nmod on
  727.       else set %bt.nmod off
  728.       if ($did(61).state) set %bt.nknop on
  729.       else set %bt.nknop off
  730.       if ($did(71).state) set %bt.ctcp on
  731.       else set %bt.ctcp off
  732.       set %bt.cchan $did(73)
  733.       set %bt.maxctcps $did(75)
  734.       set %bt.ctime $mpy($did(77),1000)
  735.       set %bt.ckick $did(79)
  736.       if ($did(80).state) set %bt.cmod on
  737.       else set %bt.cmod off
  738.       if ($did(81).state) set %bt.cknop on
  739.       else set %bt.cknop off
  740.     }
  741.     else btnetfld.update
  742.   }
  743.   elseif ($devent == edit) did -e $dname 4
  744. }
  745. alias -l btnetfld.update {
  746.   if ($did(3).state) {
  747.     did -e $dname 11
  748.     did -e $dname 31
  749.     did -e $dname 51
  750.     did -e $dname 71
  751.   }
  752.   else {
  753.     did -ub $dname 11
  754.     did -ub $dname 31
  755.     did -ub $dname 51
  756.     did -ub $dname 71
  757.   }
  758.   if ($did(11).state) {
  759.     did -e $dname 10
  760.     did -e $dname 12
  761.     did -e $dname 13
  762.     did -e $dname 14
  763.     did -e $dname 15
  764.     did -e $dname 16
  765.     did -e $dname 17
  766.     did -e $dname 18
  767.     did -e $dname 19
  768.     did -e $dname 20
  769.     did -e $dname 21
  770.   }
  771.   else {
  772.     did -b $dname 10
  773.     did -b $dname 12
  774.     did -b $dname 13
  775.     did -b $dname 14
  776.     did -b $dname 15
  777.     did -b $dname 16
  778.     did -b $dname 17
  779.     did -b $dname 18
  780.     did -b $dname 19
  781.     did -b $dname 20
  782.     did -b $dname 21
  783.   }
  784.   if ($did(31).state) {
  785.     did -e $dname 30
  786.     did -e $dname 32
  787.     did -e $dname 33
  788.     did -e $dname 34
  789.     did -e $dname 35
  790.     did -e $dname 36
  791.     did -e $dname 37
  792.     did -e $dname 38
  793.     did -e $dname 39
  794.     did -e $dname 40
  795.     did -e $dname 41
  796.   }
  797.   else {
  798.     did -b $dname 30
  799.     did -b $dname 32
  800.     did -b $dname 33
  801.     did -b $dname 34
  802.     did -b $dname 35
  803.     did -b $dname 36
  804.     did -b $dname 37
  805.     did -b $dname 38
  806.     did -b $dname 39
  807.     did -b $dname 40
  808.     did -b $dname 41
  809.   }
  810.   if ($did(51).state) {
  811.     did -e $dname 50
  812.     did -e $dname 52
  813.     did -e $dname 53
  814.     did -e $dname 54
  815.     did -e $dname 55
  816.     did -e $dname 56
  817.     did -e $dname 57
  818.     did -e $dname 58
  819.     did -e $dname 59
  820.     did -e $dname 60
  821.     did -e $dname 61
  822.   }
  823.   else {
  824.     did -b $dname 50
  825.     did -b $dname 52
  826.     did -b $dname 53
  827.     did -b $dname 54
  828.     did -b $dname 55
  829.     did -b $dname 56
  830.     did -b $dname 57
  831.     did -b $dname 58
  832.     did -b $dname 59
  833.     did -b $dname 60
  834.     did -b $dname 61
  835.   }
  836.   if ($did(71).state) {
  837.     did -e $dname 70
  838.     did -e $dname 72
  839.     did -e $dname 73
  840.     did -e $dname 74
  841.     did -e $dname 75
  842.     did -e $dname 76
  843.     did -e $dname 77
  844.     did -e $dname 78
  845.     did -e $dname 79
  846.     did -e $dname 80
  847.     did -e $dname 81
  848.   }
  849.   else {
  850.     did -b $dname 70
  851.     did -b $dname 72
  852.     did -b $dname 73
  853.     did -b $dname 74
  854.     did -b $dname 75
  855.     did -b $dname 76
  856.     did -b $dname 77
  857.     did -b $dname 78
  858.     did -b $dname 79
  859.     did -b $dname 80
  860.     did -b $dname 81
  861.   }
  862.   did -e $dname 4
  863. }
  864. on 1:DIALOG:ircN.userprot:*:* {
  865.   if ($devent == init) {
  866.     if (%userprot == on) did -c $dname 3
  867.     if (%msgfld == on) did -c $dname 11
  868.     if (%msgmaxu) did -ra $dname 13 %msgmaxu
  869.     else did -ra $dname 13 15
  870.     if (%murps) did -ra $dname 15 $div(%murps,1000)
  871.     else did -ra $dname 15 60
  872.     if (%msgremu) did -ra $dname 17 %msgremu
  873.     else did -ra $dname 17 45
  874.     if (%msgmax) did -ra $dname 19 %msgmax
  875.     else did -ra $dname 19 25
  876.     if (%mrps) did -ra $dname 21 $div(%mrps,1000)
  877.     else did -ra $dname 21 60
  878.     if (%msgrem) did -ra $dname 23 %msgrem
  879.     else did -ra $dname 23 30
  880.     if (%ctcpfld == on) did -c $dname 31
  881.     if (%ctcpmaxu) did -ra $dname 33 %ctcpmaxu
  882.     else did -ra $dname 33 5
  883.     if (%curps) did -ra $dname 35 $div(%curps,1000)
  884.     else did -ra $dname 35 60
  885.     if (%ctcpremu) did -ra $dname 37 %ctcpremu
  886.     else did -ra $dname 37 45
  887.     if (%ctcpmax) did -ra $dname 39 %ctcpmax
  888.     else did -ra $dname 39 15
  889.     if (%crps) did -ra $dname 41 $div(%crps,1000)
  890.     else did -ra $dname 41 60
  891.     if (%ctcprem) did -ra $dname 43 %ctcprem
  892.     else did -ra $dname 43 30
  893.     if (%notfld == on) did -c $dname 51
  894.     if (%notmaxu) did -ra $dname 53 %notmaxu
  895.     else did -ra $dname 53 20
  896.     if (%nturps) did -ra $dname 55 $div(%nturps,1000)
  897.     else did -ra $dname 55 60
  898.     if (%notremu) did -ra $dname 57 %notremu
  899.     else did -ra $dname 57 45
  900.     if (%notmax) did -ra $dname 59 %notmax
  901.     else did -ra $dname 59 35
  902.     if (%ntrps) did -ra $dname 61 $div(%ntrps,1000)
  903.     else did -ra $dname 61 60
  904.     if (%notrem) did -ra $dname 63 %notrem
  905.     else did -ra $dname 63 30
  906.     if (%invfld == on) did -c $dname 71
  907.     if (%invmaxu) did -ra $dname 73 %invmaxu
  908.     else did -ra $dname 73 5
  909.     if (%iurps) did -ra $dname 75 $div(%iurps,1000)
  910.     else did -ra $dname 75 60
  911.     if (%invremu) did -ra $dname 77 %invremu
  912.     else did -ra $dname 77 45
  913.     if (%invmax) did -ra $dname 79 %invmax
  914.     else did -ra $dname 79 10
  915.     if (%irps) did -ra $dname 81 $div(%irps,1000)
  916.     else did -ra $dname 81 60
  917.     if (%invrem) did -ra $dname 83 %invrem
  918.     else did -ra $dname 83 30
  919.     userprot.update
  920.     did -b $dname 4
  921.   }
  922.   elseif ($devent == edit) did -e $dname 4
  923.   elseif ($devent == sclick) {
  924.     if ((($did == 1) && ($did(2).next == 4)) || ($did == 4)) {
  925.       did -b $dname 4
  926.       if (($did(3).state) && (%userprot == off)) fprot on
  927.       elseif (($did(3).state == 0) && (%userprot == on)) fprot off
  928.       if ($did(11).state) set %msgfld on
  929.       else set %msgfld off
  930.       set %msgmaxu $did(13)
  931.       set %murps $mpy($did(15),1000)
  932.       set %msgremu $did(17)
  933.       set %msgmax $did(19)
  934.       set %mrps $mpy($did(21),1000)
  935.       set %msgrem $did(23)
  936.       if ($did(31).state) set %ctcpfld on
  937.       else set %ctcpfld off
  938.       set %ctcpmaxu $did(33)
  939.       set %curps $mpy($did(35),1000)
  940.       set %ctcpremu $did(37)
  941.       set %ctcpmax $did(39)
  942.       set %crps $mpy($did(41),1000)
  943.       set %ctcprem $did(43)
  944.       if ($did(51).state) set %notfld on
  945.       else set %notfld off
  946.       set %notmaxu $did(53)
  947.       set %nturps $mpy($did(55),1000)
  948.       set %notremu $did(57)
  949.       set %notmax $did(59)
  950.       set %ntrps $mpy($did(61),1000)
  951.       set %notrem $did(63)
  952.       if ($did(71).state) set %invfld on
  953.       else set %invfld off
  954.       set %invmaxu $did(73)
  955.       set %iurps $mpy($did(75),1000)
  956.       set %invremu $did(77)
  957.       set %invmax $did(79)
  958.       set %irps $mpy($did(81),1000)
  959.       set %invrem $did(83)
  960.     }
  961.     else userprot.update
  962.   }
  963.   elseif ($devent == edit) did -e $dname 4
  964. }
  965. on 1:DIALOG:ircN.cloaksettings:*:* {
  966.   if ($devent == init) {
  967.     if (%cloak.addon == on) did -c $dname 11
  968.     if (%cloak.ping == on) did -c $dname 12
  969.     if (%cloak.version == on) did -c $dname 13
  970.     if (%cloak.finger == on) did -c $dname 14
  971.     if (%cloak.time == on) did -c $dname 15
  972.   }
  973.   elseif ($devent == sclick) {  
  974.     if ((($did == 1) && ($did(2).next == 3)) || ($did == 3)) {
  975.       did -b $dname 3
  976.       if ($did(11).state) set %cloak.addon on
  977.       else set %cloak.addon off
  978.       if ($did(12).state) set %cloak.ping on
  979.       else set %cloak.ping off
  980.       if ($did(13).state) set %cloak.version on
  981.       else set %cloak.version off
  982.       if ($did(14).state) set %cloak.finger on
  983.       else set %cloak.finger off
  984.       if ($did(15).state) set %cloak.time on
  985.       else set %cloak.time off
  986.     }
  987.     else did -e $dname 3
  988.   }
  989. }
  990.